home *** CD-ROM | disk | FTP | other *** search
- #include "gemlib/gemfast.h"
- #include "gemlib/aesbind.h"
- #include <osbind.h>
- #include <mintbind.h>
- #include <basepage.h>
- #include <minimal.h>
- #include "lack.h"
-
- char *_ltoa (long n, char *buffer, int radix);
-
- int mess[8];
- long _stksize=1024;
- void *curapp;
-
- main()
- {
- NEW_AESP(a);
- BASEPAGE *b=_base;
- long reply=0;
- /* char where[40];
-
- strcpy(&where[0], "my basepage is at ");
- _ltoa((long)b, &where[18], 16);
- Cconws(where);
- strcpy(&where[0], " main is at ");
- _ltoa((long)main, &where[12], 16);
- Cconws(where);
- Cconws("\r\n");
- */
- _aesparams=&a;
- reply=Dcntl(LA_INIT_ACC, "S:", b);
- if(reply<1) appl_init();
- while(reply<1)
- {
- evnt_mesag(mess);
- reply=Dcntl(LA_INIT_ACC, "S:", b);
- }
- Super(0);
- longjump(reply);
- }
-